(uniquify-rationalize-file-buffer-names):

Always strip the trailing / even if the file is not a directory.

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index cd8b22303dcfe2d92993c7c408fb4bc351fbaeda..448ce6f474497817c8467f2e9263c3ce7e495285 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -199,9 +199,7 @@ file name elements.  Arguments cause only a subset of buffers to be renamed."
                 (setq bfn (if (eq buffer newbuf)
                               (when newbuffile
                                 (expand-file-name
-                                 (if (file-directory-p newbuffile)
-                                     (directory-file-name newbuffile)
-                                   newbuffile)))
+                                 (directory-file-name newbuffile)))
                             (uniquify-buffer-file-name buffer)))
                 (setq rawname (uniquify-file-name-nondirectory bfn))
                 (or (not newbuffile)